home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / mtools.lha / mtools-2.0.7 / parse.c < prev    next >
C/C++ Source or Header  |  1992-09-10  |  2KB  |  116 lines
  1. #include <stdio.h>
  2. #include <ctype.h>
  3. #include "msdos.h"
  4.  
  5. extern char *mcwd;
  6.  
  7. /*
  8.  * Get name component of filename.  Translates name to upper case.  Returns
  9.  * pointer to static area.
  10.  */
  11.  
  12. char *
  13. get_name(filename)
  14. char *filename;
  15. {
  16.     char *s, *temp, *strcpy(), *strrchr(), buf[MAX_PATH];
  17.     static char ans[13];
  18.  
  19.     strcpy(buf, filename);
  20.     temp = buf;
  21.                     /* skip drive letter */
  22.     if (buf[0] && buf[1] == ':')
  23.         temp = &buf[2];
  24.                     /* find the last separator */
  25.     if (s = strrchr(temp, '/'))
  26.         temp = s + 1;
  27.     if (s = strrchr(temp, '\\'))
  28.         temp = s + 1;
  29.                     /* xlate to upper case */
  30.     for (s = temp; *s; ++s) {
  31.         if (islower(*s))
  32.             *s = toupper(*s);
  33.     }
  34.  
  35.     strcpy(ans, temp);
  36.     return(ans);
  37. }
  38.  
  39. /*
  40.  * Get the path component of the filename.  Translates to upper case.
  41.  * Returns pointer to a static area.  Doesn't alter leading separator,
  42.  * always strips trailing separator (unless it is the path itself).
  43.  */
  44.  
  45. char *
  46. get_path(filename)
  47. char *filename;
  48. {
  49.     char *s, *end, *begin, *strcpy(), *strrchr(), buf[MAX_PATH];
  50.     char drive, *strcat();
  51.     static char ans[MAX_PATH];
  52.     int has_sep;
  53.  
  54.     strcpy(buf, filename);
  55.     begin = buf;
  56.                     /* skip drive letter */
  57.     drive = '\0';
  58.     if (buf[0] && buf[1] == ':') {
  59.         drive = (islower(buf[0])) ? toupper(buf[0]) : buf[0];
  60.         begin = &buf[2];
  61.     }
  62.                     /* if absolute path */
  63.     if (*begin == '/' || *begin == '\\')
  64.         ans[0] = '\0';
  65.     else {
  66.         if (!drive || drive == *mcwd)
  67.             strcpy(ans, mcwd + 2);
  68.         else
  69.             strcpy(ans, "/");
  70.     }
  71.                     /* find last separator */
  72.     has_sep = 0;
  73.     end = begin;
  74.     if (s = strrchr(end, '/')) {
  75.         has_sep++;
  76.         end = s;
  77.     }
  78.     if (s = strrchr(end, '\\')) {
  79.         has_sep++;
  80.         end = s;
  81.     }
  82.                     /* zap the trailing separator */
  83.     *end = '\0';
  84.                     /* translate to upper case */
  85.     for (s = begin; *s; ++s) {
  86.         if (islower(*s))
  87.             *s = toupper(*s);
  88.         if (*s == '\\')
  89.             *s = '/';
  90.     }
  91.                     /* if separator alone, put it back */
  92.     if (!strlen(begin) && has_sep)
  93.         strcat(ans, "/");
  94.  
  95.     strcat(ans, begin);
  96.     return(ans);
  97. }
  98.  
  99. /*
  100.  * get the drive letter designation
  101.  */
  102.  
  103. char
  104. get_drive(filename)
  105. char *filename;
  106. {
  107.     if (*filename && *(filename + 1) == ':') {
  108.         if (islower(*filename))
  109.             return(toupper(*filename));
  110.         else
  111.             return(*filename);
  112.     }
  113.     else
  114.         return(*mcwd);
  115. }
  116.